﻿Public Class Email

    Private _addr As String
    Property id As Long

    Property address As String
        Get
            Return Me._addr
        End Get
        Set(value As String)
            Me._addr = value
        End Set
    End Property


    Property displayName As String
    
    Sub New()
        Me.New("", "")
    End Sub

    Sub New(address As String, display As String)
        Me.New(-1, address, display)
    End Sub

    Sub New(id As Long, addr As String, display As String)
        Me.id = id
        Me.address = addr
        Me.displayName = display
    End Sub

    Function isNew() As Boolean
        Return (Me.id = -1)
    End Function

End Class
